VERSION 5.00
Begin VB.Form WhereTestedForm 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   9000
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12000
   LinkTopic       =   "Form1"
   ScaleHeight     =   9000
   ScaleWidth      =   12000
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Back_Button 
      Caption         =   "Back"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9600
      TabIndex        =   5
      Top             =   7560
      Width           =   1935
   End
   Begin VB.CommandButton Cancel_Button 
      BackColor       =   &H008080FF&
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9600
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   6540
      Width           =   1935
   End
   Begin VB.CommandButton Next_Button 
      Caption         =   "Next"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9600
      TabIndex        =   1
      Top             =   5520
      Width           =   1935
   End
   Begin VB.CommandButton Clear_Button 
      Caption         =   "Clear"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9600
      TabIndex        =   0
      Top             =   4500
      Visible         =   0   'False
      Width           =   1935
   End
   Begin VCT.TouchScreenListBox LB 
      Height          =   4575
      Left            =   840
      TabIndex        =   3
      Top             =   4200
      Width           =   6015
      _ExtentX        =   10610
      _ExtentY        =   8070
   End
   Begin VCT.ClientSexHistCtrl SEXHX 
      Height          =   3855
      Left            =   300
      TabIndex        =   4
      Top             =   240
      Width           =   11415
      _ExtentX        =   20135
      _ExtentY        =   6800
   End
End
Attribute VB_Name = "WhereTestedForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'PRTESITE - Where was the client previously tested
'Back to TYEAR

Private Sub Back_Button_Click()
   TYEAR = ""
   PRTESITE = ""
   PrevHIVTestYearForm.Show
   Unload Me
End Sub

Private Sub Cancel_Button_Click()
   VCTStageForm.Show
   Unload Me
End Sub


Private Sub Form_Load()
   Next_Button.Enabled = False
   SEXHX.UpdateData
   SEXHX.SetStar (2)
   If ORGANIZATION = "MACRO" Then
      LB.AddItem "This MACRO Site" '01
      LB.AddItem "Other MACRO Site" '02
      LB.AddItem "Public Clinic/Hospital" '03
      LB.AddItem "Private Clinic/Hospital" '04
      LB.AddItem "CHAM" '05
      LB.AddItem "Other NGO" '06
      LB.AddItem "Other" '99
   Else
      If ORGANIZATION = "LIGHTHOUSE" Then
         LB.AddItem "LH (Centre)" '11
         LB.AddItem "LH (Bottom)" '12
         LB.AddItem "LH (KCH Medical)" '13
         LB.AddItem "LH (KCH Paeds)" '14
         LB.AddItem "LH (Area 18)" '15
         LB.AddItem "LH (Chinsapo)" '16
         LB.AddItem "MACRO" '17
         LB.AddItem "CHAM" '05
         LB.AddItem "Public Clinic/Hospital" '03
         LB.AddItem "Private Clinic/Hospital" '04
         LB.AddItem "Other" '99
      End If
   End If
End Sub

Private Sub LB_click()
   If ORGANIZATION = "MACRO" Then
      Select Case LB.ListIndex
         Case 0
            PRTESITE = "01"
         Case 1
            PRTESITE = "02"
         Case 2
            PRTESITE = "03"
         Case 3
            PRTESITE = "04"
         Case 4
            PRTESITE = "05"
         Case 5
            PRTESITE = "06"
         Case 6
            PRTESITE = "99"
      End Select
   Else
      If ORGANIZATION = "LIGHTHOUSE" Then
         Select Case LB.ListIndex
            Case 0
               PRTESITE = "11"
            Case 1
               PRTESITE = "12"
            Case 2
               PRTESITE = "13"
            Case 3
               PRTESITE = "14"
            Case 4
               PRTESITE = "15"
            Case 5
               PRTESITE = "16"
            Case 6
               PRTESITE = "17"
            Case 7
               PRTESITE = "05"
            Case 8
               PRTESITE = "03"
            Case 9
               PRTESITE = "04"
            Case 10
               PRTESITE = "99"
         End Select
      End If
   End If
   SEXHX.UpdateData
   Next_Button.Enabled = True
End Sub

Private Sub Next_Button_Click()
   EverHadSexForm.Show
   Unload Me
End Sub
